use "data_SawyerNam"

*Table 1
reg essentialism_scale altRightSupport Asian Black Latinx NativeAmerican female republican democrat married educ, robust

*Appendix B. Table 1
sum essentialism_scale altRightSupport female Asian Black Latinx NativeAmerican White republican democrat married educ

*Appendix B. Table 2
reg essen_diff genes_race genes_noRace enviro_Race enviro_noRace Asian Black Latinx NativeAmerican female republican democrat married educ if altRightSupport == 1, robust
*Store estimates for Figure 1
estimates store A

*Appendix B. Table 3
reg essen_diff genes_race genes_noRace enviro_Race enviro_noRace Asian Black Latinx NativeAmerican  female republican democrat married educ if altRightSupport == 0, robust
*Store estimates for Figure 1
estimates store B

*Figure 1
coefplot A, bylabel(alt-right) || B, bylabel(Not alt-right)  ||, drop(Asian Black Latinx NativeAmerican female republican democrat married educ _cons) xline(0) level(90)

*Appendix B. Table 4
reg essen_diff genes enviro Asian Black Latinx NativeAmerican female republican democrat married educ if altRightSupport == 1, robust

*Appendix B. Table 5
reg essen_diff genes enviro Asian Black Latinx NativeAmerican female republican democrat married educ if altRightSupport == 0, robust

*Table 2
reg manip_genes altRightSupport Asian Black Latinx NativeAmerican female republican democrat married educ if enviro == 1, robust



